home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D07.D64 / window wiper (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  82 lines
  1. 1000 X=X+1:IFX=1THENLOAD"WIPER MC",8,1
  2. 1010 REM **************
  3. 1020 REM *            *
  4. 1030 REM * WIN-SCREEN *
  5. 1040 REM *   WIPER    *
  6. 1050 REM *            *
  7. 1060 REM *    DEMO    *
  8. 1070 REM *            *
  9. 1080 REM *     BY     *
  10. 1090 REM * MIKE  BENN *
  11. 1100 REM *            *
  12. 1110 REM **************
  13. 1120 REM
  14. 1130 REM *************
  15. 1140 REM *           *
  16. 1150 REM * VARIABLES *
  17. 1160 REM *           *
  18. 1170 REM *************
  19. 1180 REM
  20. 1190 REM SA = SCREEN ADDRESS
  21. 1200 REM MD = SCREEN MODE
  22. 1210 REM CH = WIPE CHARACTER
  23. 1220 REM CS = CHARACTER SET
  24. 1230 REM CC = CHARACTER COLOUR
  25. 1240 REM B0 = BACKGROUND COLOUR 0
  26. 1250 REM B1 = BACKGROUND COLOUR 1
  27. 1260 REM B2 = BACKGROUND COLOUR 2
  28. 1270 REM BR = BORDER COLOUR
  29. 1280 REM WP = WIPE TYPE
  30. 1290 REM DV = DEVICE (TAPE=1/DISK=8)
  31. 1300 REM
  32. 1310 REM ** LOAD PARTS **
  33. 1320 REM
  34. 1330 DV=8
  35. 1340 SYS49155,"WIPER CHRS",DV,14336
  36. 1350 SYS49155,"WIPER WIN1",DV,16384
  37. 1360 SYS49155,"WIPER WIN2",DV,17384
  38. 1370 REM
  39. 1380 REM ** CHARACTER WIPES **
  40. 1390 REM
  41. 1400 SA=16384:MD=1:CH=63:CS=31:CC=9:BR=0:B0=0:B1=11:B2=12:WP=0
  42. 1410 GOSUB1780:GOSUB1800
  43. 1420 WP=1:GOSUB1780:GOSUB1800
  44. 1430 WP=0:GOSUB1780:GOSUB1800
  45. 1440 WP=3:GOSUB1780:GOSUB1800
  46. 1450 WP=4:GOSUB1780:GOSUB1800
  47. 1460 WP=5:GOSUB1780:GOSUB1800
  48. 1470 WP=6:CH=62:GOSUB1780:GOSUB1800
  49. 1480 WP=7:GOSUB1780:GOSUB1800
  50. 1490 WP=8:GOSUB1780:GOSUB1800
  51. 1500 WP=9:GOSUB1780:GOSUB1800
  52. 1510 WP=10:CH=63:GOSUB1780:GOSUB1800
  53. 1520 WP=11:GOSUB1780:GOSUB1800
  54. 1530 WP=12:CH=62:GOSUB1780:GOSUB1800
  55. 1540 WP=13:GOSUB1780:GOSUB1800
  56. 1550 REM
  57. 1560 REM ** SCREEN WIPES **
  58. 1570 REM
  59. 1580 SA=16384:MD=1:CH=63:CS=31:CC=9:BR=0:B0=0:B1=11:B2=12:WP=0
  60. 1590 GOSUB1780:GOSUB1800
  61. 1600 SA=17384
  62. 1610 GOSUB1780:GOSUB1800
  63. 1620 SA=16384:CC=13:B1=13:B2=3:WP=4
  64. 1630 GOSUB1780:GOSUB1800
  65. 1640 SA=17384:CC=13:WP=6
  66. 1650 GOSUB1780:GOSUB1800
  67. 1660 SA=16384:CC=15:B1=8:B2=9:WP=8
  68. 1670 GOSUB1780:GOSUB1800
  69. 1680 SA=17384:CC=9:B1=11:B2=12:WP=10
  70. 1690 GOSUB1780:GOSUB1800
  71. 1700 SA=16384:WP=12
  72. 1710 GOSUB1780:GOSUB1800
  73. 1720 SA=16384:WP=3:CH=63
  74. 1730 GOSUB1780
  75. 1740 SA=17384:WP=2:CH=63
  76. 1750 GOSUB1780:GOSUB1800
  77. 1760 WP=15:GOSUB1780
  78. 1770 END
  79. 1780 SYS49152,SA,MD,CH,CS,CC,B0,B1,B2,BR,WP
  80. 1790 RETURN
  81. 1800 FORDE=0TO1500:NEXTDE:RETURN
  82.